home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 12 / Amiga Format AFCD12 (Apr 1997, Issue 96).iso / -screenplay- / utilities / swos_hdinstall / swos install < prev    next >
Text File  |  1997-02-08  |  3KB  |  124 lines
  1. ; $VER: SWOS HD Install-Script by Piotr Bieniek
  2.  
  3. (set GameDir "SWOS")
  4. (set TotalDisks 2)
  5. (set CurrentDisk 0)
  6. (set Percent 20)
  7. (set DiskPercent (/ (- 100 Percent) TotalDisks))
  8.  
  9. ;try to figure out a place where the user usually installs his games
  10. (if (exists "Games:" (noreq) )
  11.     (set @default-dest "Games:")
  12.     (if (exists "SYS:Games" (noreq) )
  13.         (set @default-dest "SYS:Games")
  14.         (if (exists "Work:Games" (noreq) )
  15.             (set @default-dest "Work:Games")
  16.             (set @default-dest "SYS:")
  17.         )
  18.     )
  19. )
  20.  
  21. ;ask the user to select a directory to install the game into
  22. (set default-dest
  23.      (tackon (askdir (prompt "Where would you like " @app-name " installed?\n"
  24.                              "A drawer called " GameDir " will be created.")
  25.                      (help @askdir-help)
  26.                      (default @default-dest)
  27.                      (newpath)
  28.              )
  29.      GameDir
  30.      )
  31. )
  32. (set @default-dest default-dest)
  33. (complete 5)
  34.  
  35. ;create the selected directory and a subdirectory called Data
  36. (makedir @default-dest
  37.          (infos)
  38. )
  39. (makedir (tackon @default-dest "data")
  40. )
  41. (makedir (tackon @default-dest "grafs")
  42. )
  43. (makedir (tackon @default-dest "sound")
  44. )
  45. (complete 10)
  46.  
  47. ;copy all extra files to this directory
  48. (set gamever
  49.      (askchoice (prompt "Which version of SWOS do you wish to install?")
  50.                 (help @askchoice-help)
  51.                 (choices "SWOS 1.0" "SWOS 1.1" "SWOS 95/96" "SWOS Euro'96" "SWOS 96/97")
  52.      )
  53. )
  54.  
  55. (if (= gamever 0) (set ssbootfile "ssboot10.hd"))
  56. (if (= gamever 1) (set ssbootfile "ssboot11.hd"))
  57. (if (= gamever 2) (set ssbootfile "ssboot96.hd"))
  58. (if (= gamever 3) (set ssbootfile "ssbootEC.hd"))
  59. (if (= gamever 4) (set ssbootfile "ssboot97.hd"))
  60.  
  61.       (copyfiles (source ssbootfile)
  62.                  (dest @default-dest)
  63.                  (newname "ssboot")
  64.       )
  65.       (copyfiles (source "Sensible World of Soccer")
  66.                  (dest @default-dest)
  67.       )
  68.       (copyfiles (source "Sensible World of Soccer.icon")
  69.                  (dest @default-dest)
  70.                  (newname "Sensible World of Soccer.info")
  71.       )
  72.  
  73. (complete 20)
  74.  
  75. (askdisk (prompt "Please insert SWOS disk 1 in any drive.")
  76.          (help @askdisk-help)
  77.          (dest "SWOS")
  78. ;         (assigns)
  79. )
  80.  
  81. (copyfiles (source "SWOS:swos")
  82.            (dest @default-dest)
  83. )
  84. (copyfiles (source "SWOS:swos.rel")
  85.            (dest @default-dest)
  86. )
  87. (copyfiles (source "SWOS:swos2")
  88.            (dest @default-dest)
  89. )
  90. (copyfiles (source "SWOS:swos2.rel")
  91.            (dest @default-dest)
  92. )
  93. (copyfiles (source "SWOS:grafs")
  94.            (dest (tackon @default-dest "grafs"))
  95.            (all)
  96. )
  97. (copyfiles (source "SWOS:sound")
  98.            (dest (tackon @default-dest "sound"))
  99.            (all)
  100. )
  101.  
  102. (complete 60)
  103.  
  104. (askdisk (prompt "Please insert SWOS disk 2 in any drive.")
  105.          (help @askdisk-help)
  106.          (dest "SWOS2")
  107. ;         (assigns)
  108. )
  109.  
  110. (copyfiles (source "SWOS2:data")
  111.            (dest (tackon @default-dest "data"))
  112.            (all)
  113. )
  114. (copyfiles (source "SWOS2:grafs")
  115.            (dest (tackon @default-dest "grafs"))
  116.            (all)
  117. )
  118. (copyfiles (source "SWOS2:sound")
  119.            (dest (tackon @default-dest "sound"))
  120.            (all)
  121. )
  122.  
  123. (complete 100)
  124.